Shareware Grab Bag

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / db2ios.arc / REPORT.SIG < prev next >

Wrap

Text File | 1983-01-04 | 8.5 KB | 268 lines

* report.sig 08/18/83 STORE t TO more DO WHILE more STORE CHR(PEEK (063)) TO dr ERASE STORE 'Y' TO printer STORE 'N' TO disk STORE ' ' TO filename STORE '?' TO command @ 2, 0 SAY "--------------------------------------------------------------------------------" @ 2,18 SAY "> > > R E P O R T M E N U < < <" @ 5,18 SAY "1. Print return address labels" @ 6,18 SAY "2. Print shipping labels" @ 7,18 SAY "3. Print shipping documents" @ 8,18 SAY "4. Print report of orders shipped" @ 9,18 SAY "5. Print report of orders completed" @ 10,18 SAY "6. Print backorder report" @ 11,18 SAY "7. Display Records on screen" @ 12,18 SAY "8. Make WordStar-MailMerge File" @ 13,18 SAY "9. Return to Main Menu" @ 17, 0 SAY "--------------------------------------------------------------------------------" @ 20,30 SAY "WHAT NEXT" @ 20,40 GET command PICTURE '!' READ IF command >'3' .AND. command < '7' @ 20,00 @ 19,22 SAY "Send Report to the Printer (Y/N)" @ 19,55 GET printer PICTURE '!' READ @ 21,22 SAY "Send Report to a Disk File (Y/N)" @ 21,55 GET disk PICTURE '!' READ IF disk ='Y' @ 21,00 @ 21,22 SAY "Enter Disk File Name" @ 21,44 GET filename PICTURE '!!!!!!!!' @ 21,54 SAY "(.TXT will be added )" READ @ 21,00 @ 21,22 SAY 'Select drive to put Files on ' GET dr PICTURE '!' READ DO WHILE @(dr,'ABCDM') = 0 @ 21,00 @ 21,22 SAY 'Select drive to put Files on ' GET dr PICTURE '!' READ ENDDO while @ ENDIF disk = Y IF printer = 'Y' @ 23,00 SAY 'Make Printer Ready and hit any key' SET CONSOLE OFF WAIT SET CONSOLE ON SET print ON ENDIF printer = Y IF disk = 'Y' .AND. filename <> ' ' * make a proper REPORT file name that is of type TXT STORE @('.',filename) TO length IF length = 0 .OR. length > 8 STORE 9 TO length ENDIF length STORE $(filename,1,length-1) TO filename STORE '&dr.:'+filename+'.TXT' TO filename SET ALTERNATE TO &filename SET ALTERNATE ON ENDIF disk = Y and filename <> '' ENDIF disk = Y ERASE DO CASE CASE command = '1' SET PRINT ON SET CONSOLE OFF * set printer codes for small type ? CHR(29) ? CHR(27) + chr(56) SET PRINT OFF SET CONSOLE ON ERASE STORE t TO lineup DO WHILE LINEUP STORE '?' TO command @ 10,00 @ 11,00 @ 10,10 SAY 'Please line up the top of the ribbon with the top of the label' @ 11,10 SAY 'When lined up hit ENTER for a print check.' SET CONSOLE OFF WAIT SET PRINT ON SET MARGIN TO 0 ? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT' ? '1/4" FROM THE TOP OF THE LABEL' ? ' ' SET PRINT OFF SET CONSOLE ON @ 10,00 @ 11,00 @ 10,10 SAY 'Are you lined up to print (Y/N) ' @ 10,44 GET command picture '!' READ CLEAR GETS IF command = 'Y' SET PRINT ON ? ' ' ? ' ' ? ' ' ? ' ' ? ' ' SET PRINT OFF STORE f TO lineup STORE t TO printlab ENDIF command = y ENDDO while lineup ERASE DO WHILE printlab = t STORE '?' TO command STORE 0 TO PRNTNO @ 10,00 @ 11,00 @ 12,00 @ 13,00 @ 15,00 @ 13,12 SAY " How many return address labels shall we print ? " GET PRNTNO READ DO WHILE PRNTNO > 0 SET PRINT ON SET CONSOLE OFF SET MARGIN TO 5 ? ' ' ? ' SIG/M SOFTWARE' ? ' Box 97' ? 'Iselin, NJ 08830' ? ' ' ? ' ' ? ' ' ? ' ' STORE PRNTNO - 1 TO PRNTNO ENDDO while prntno SET PRINT OFF SET CONSOLE ON SET PRINT ON ? CHR(30) ? CHR(27) + CHR(54) EJECT SET PRINT OFF SET CONSOLE ON STORE f TO printlab ENDDO while printlab ERASE RELEASE all STORE t TO first STORE t TO more STORE '?' TO command CASE COMMAND = '2' @ 19,22 SAY "Send Report to a Disk File (Y/N)" @ 19,55 GET disk PICTURE '!' READ IF disk ='Y' @ 19,00 @ 19,22 SAY "Enter Disk File Name" @ 19,44 GET filename PICTURE '!!!!!!!!' @ 19,54 SAY "(.TXT will be added )" READ @ 19,00 @ 19,22 SAY 'Select drive to put Files on ' GET dr PICTURE '!' READ DO WHILE @(dr,'ABCDM') = 0 @ 19,00 @ 19,22 SAY 'Select drive to put Files on ' GET dr PICTURE '!' READ ENDDO while @ ENDIF disk = Y @ 19,00 @ 20,22 SAY "Send Report to the Printer (Y/N)" @ 20,55 GET printer PICTURE '!' READ IF printer = 'Y' SET PRINT ON SET CONSOLE OFF ? CHR(28) SET PRINT OFF SET CONSOLE ON ERASE STORE t TO lineup DO WHILE LINEUP STORE '?' TO command @ 10,00 @ 11,00 @ 10,10 SAY 'Please line up the top of the ribbon with the top of the label' @ 11,10 SAY 'When lined up hit ENTER for a print check.' SET CONSOLE OFF WAIT SET PRINT ON SET MARGIN TO 0 ? 'THE TOP OF THE TOP LINE SHOULD BE ABOUT' ? '1/4" FROM THE TOP OF THE LABEL' ? ' ' SET PRINT OFF SET CONSOLE ON @ 10,00 @ 11,00 @ 10,10 SAY 'Are you lined up to print (Y/N) ' @ 10,44 GET command picture '!' READ CLEAR GETS IF command = 'Y' SET PRINT ON ? ' ' ? ' ' ? ' ' ? ' ' ? ' ' STORE f TO lineup STORE t TO printlab ENDIF command = y ENDDO WHILE lineup ENDIF printer = y DO labels.sig CASE command = '3' DO shipdoc.sig CASE command = '4' DO shipped.sig CASE command = '5' DO complete.sig CASE command = '6' DO backordr.sig CASE command = '7' ERASE @ 02,12 SAY 'Records are displayed by Last names' @ 05,12 SAY 'You may choose the first letter' @ 06,12 SAY 'of the starting location of the records' @ 09,12 SAY 'When WAITING hit space bar to' @ 10,12 SAY 'Continue... or ESCape to Quit' * get a starting point in file STORE 'A' TO stletter @ 17,12 SAY 'Letter of alphabet at which to start display' @ 17,57 Get stletter PICTURE '!' READ * goto starting point or next if no find FIND &stletter DO WHILE # = 0 STORE 'ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMNOPQRSTUVWXYZ' TO ALPHABET STORE @(stletter,ALPHABET) + 1 TO NEXL STORE $(ALPHABET,NEXL,1) TO stletter FIND &stletter RELEASE alphabet ENDDO while # * display selected list ERASE SET ESCAPE OFF DISPLAY NEXT 65000 lname,zip,comp,entered,shipped IF eof WAIT ENDIF SET ESCAPE ON CASE command = '8' DO wsfile.sig CASE (command = '9' .OR. COMMAND = 'Q') STORE f TO more ENDCASE SET PRINT OFF SET ALTERNATE OFF ENDDO while more RELEASE ALL STORE t TO more STORE t TO first STORE '?' TO command